home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / KidHTML1_25.lha / KidHTML1.25 / Install < prev    next >
Encoding:
Text File  |  1998-09-16  |  2.4 KB  |  102 lines
  1. ; Installer script KidHTML v1.x
  2. ;
  3. ; 18.08.1998 by Marcio Esper
  4.  
  5.  
  6.  
  7. (complete 0)
  8.  
  9. (delete "s:KidHTML.key")
  10. (complete 1)
  11. (message"\n\nKidHTML v1.25\n\nby\n\nMarcio Esper\n\n1998")
  12.  
  13. (message 
  14.   "\n\nKidHTML is shareware.\n\nPlease consider registering!"
  15.   "\n\nSee the doc for more info.\n\nor mail to \n\nicemanmail@iname.com"
  16. ;  (ALL)
  17. )
  18.  
  19. (complete 3)
  20.  
  21. (message "\n\n Internet suport at\n\nhttp://www.allnet.com.br/iceman/")
  22.  
  23. (set #DEST0
  24.   (askdir
  25.     (prompt "Where do you want to install KidHTML ? A drawer will be created there.")
  26.     (help (cat @askdir-help)
  27.     )
  28.     (default "Work:")
  29.   )
  30. )
  31.  
  32. (complete 6)
  33.  
  34. (set #DEST (tackon #DEST0 "KidHTML"))
  35. (complete 8)
  36. (makedir #DEST (infos))
  37. (complete 10)
  38. (if (= (exists "KidHTML.key") 1)
  39.  (copyfiles (dest "sys:s/") (source "KidHTML.key")))
  40.  
  41.  (complete 16)
  42.  
  43. (copyfiles (dest #DEST) (source "KidHTML1.25"))
  44.  
  45. (complete 25)
  46.  
  47. (copyfiles (dest #DEST) (source "KidHTML1.25.info"))
  48.  
  49. (complete 50)
  50. (makedir (tackon #DEST "Script") )
  51.  
  52. (complete 55)
  53. (makeassign (tackon #DEST "KidHTML"(safe)))
  54.  (complete 57)
  55. (copyfiles (dest #DEST) (source "KidHTMLconfig"))
  56.  (complete 59)
  57.  
  58. (copyfiles (source "script/") (dest (tackon #DEST "script") (all) ))
  59. (complete 63)
  60.  
  61. (complete 70)
  62. (makedir (tackon #DEST "Docs") )
  63.  (complete 72)
  64.  (complete 74)
  65. (copyfiles (dest #DEST) (source "KidHTMLconfig.info"))
  66. (complete 75)
  67. (copyfiles (source "docs/") (dest (tackon #DEST "Docs") (all) ))
  68.  (complete 80)
  69. (makedir (tackon #DEST "HTMLcode") )
  70. (complete 84)
  71.  
  72. (copyfiles (source "HTMLcode/") (dest (tackon #DEST "HTMLcode") (all) ))
  73.   (complete 87)
  74.   (complete 88)
  75. (copyfiles (dest #DEST) (source "KidArexxConfig"))
  76.  (complete 89)
  77.  (complete 90)
  78.  (complete 91)
  79. (copyfiles (source "ARexx/") (dest (tackon #DEST "ARexx") (all) ))
  80.  (complete 92)
  81.  (complete 93)
  82. (copyfiles (dest #DEST) (source "KidArexxConfig.info"))
  83.  (complete 94)
  84.  (complete 95)
  85. (copyfiles (dest #DEST) (source "ARexx.config"))
  86.  (complete 96)
  87.  (complete 97)
  88.  (complete 98)
  89.   (copyfiles (source "Example/") (dest (tackon #DEST "Example")) (all))
  90. (startup "KidHTML"
  91.         (prompt "Some commands will be added to your \"s:user-startup\" file.")
  92.         (help @startup-help)
  93.         (command "if exists \"" #DEST "\"\n")
  94.         (command "   assign KidHTML: \"" #DEST "\"\n")
  95.         (command "endif")
  96. )
  97.          (complete 99)
  98. (complete 100)
  99. (message "\n\nPlease rebut your computer and\n\nrun KidHTMLconfig before use KidHTML!!!!!\n\nThank you for use this soft!")
  100. (set @default-dest (tackon #DEST "KidHTML"))
  101.  
  102.